---
title: "Oregon Table of Adult Mask Noncompliance and Risk of Harmful Response to Student Mask Noncompliance"
author: "Rebecca Amodeo"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
pacman::p_load(plotly, maps, readr, dplyr, ggthemes, ggrepel, ggfittext)
knitr::opts_chunk$set(message = FALSE)
```

Row {data-height=800}
------------------------------------------------------------------------------

### Oregon Adult Mask Noncompliance and Risk of Harmful Response to Student Mask Noncompliance
```{r echo=FALSE, warning=FALSE}
pacman::p_load(reactable)
nicedf <- read_csv("C:/My_R/crime_health_sp_2020/data/nicedf.csv")
nicetable <- nicedf %>%
  select(-c(X1, fips, county_rank_in_healthcare_for_kids))

orange_pal <- function(x) rgb(colorRamp(c("#ffe4cc", "#ff9500"))(x), maxColorValue = 255)

reactable(nicetable,
          filterable = TRUE,
          highlight = TRUE,
          defaultPageSize = 36, columns = list(
            county_name = colDef(name = "Oregon County"),
            county_rank_in_adult_mask_use = colDef(name = "Rank in Adult Mask Use",
                                                   style = function(value) {
              normalized <- (value - min(nicetable$county_rank_in_adult_mask_use)) /
                (max(nicetable$county_rank_in_adult_mask_use) -
                   min(nicetable$county_rank_in_adult_mask_use))
              color <- orange_pal(normalized)
              list(background = color)}),
            rri_risk_n = colDef(name = "Relative Risk of Harmful Discipline",
                                                        style = function(value) {
              normalized1 <- (value - min(nicetable$rri_risk_n)) /
                (max(nicetable$rri_risk_n) -
                   min(nicetable$rri_risk_n))
              color <- orange_pal(normalized1)
              list(background = color)})
            ))
```

Row {data-height=200}
------------------------------------------------------------------------------

### Other Resources  
View this information on an [interactive map](insert-link).  
Go to Oregon Department of Education (ODE) [Covid-19 Resources webpage](insert-link).